home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / I-Info Magazine / (c)i19.d64 / label pro4.1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  141 lines
  1. 10 IFTE=0THENTE=8192:G=7:POKE53272,21:DIMN$(8):DIMM$(8)
  2. 20 SYSTE
  3. 30 GOTO1400
  4. 40 PRINT"[147]";:!HUE(6,6,14):FORI=0TO23
  5. 50 PRINT" WELCOME TO LABEL PRO4.1 BY STEVE BOAL":POKE53280,1:POKE53280,2:NEXT
  6. 60 PRINT" WELCOME TO LABEL PRO4.1 BY STEVE BOAL";:!RESTORE:RETURN
  7. 70 !DIM(06,07,26,10):!DEF(1,1,R,V,32,5,1)
  8. 80 A$=""
  9. 90 A$=A$+"     LABEL PRO V4.1   ":A$=A$+"   [144] A SHAREWARE PRODUCT "
  10. 100 A$=A$+"       BY[158] STEVE BOAL      ":A$=A$+"     6021 CLARK ST.     "
  11. 110 A$=A$+"  DES MOINES,IA 50311  "
  12. 120 A$=A$+"[144]  SEND[159] $5 [144] TO REGISTER  ":A$=A$+"   FOR FUTURE UPDATES "
  13. 130 A$=A$+"      AND ENHANCEMENTS    "
  14. 140 !OPEN,A$
  15. 150 FORI=ITO2000:NEXTI
  16. 160 A$=""
  17. 170 A$=A$+"       THANKS TO      ":A$=A$+"   [144]     [129]LARRY EAMER[144]   "
  18. 180 A$=A$+"         [158]ERIC WOOLSEY    ":A$=A$+"       [159]RONALD CARNELL  "
  19. 190 A$=A$+"       THE WINDOW WIZARD   "
  20. 200 A$=A$+"   [144]IF YOU LIKE THIS ONE ":A$=A$+"    WAIT UNTIL YOU SEE "
  21. 210 A$=A$+"   WHAT'S NEXT!--(C) 1986 "
  22. 220 !AGAIN,A$
  23. 230 !DIM(18,12,16,3):!DEF(1,1,R,V,32,100,1)
  24. 240 FORI=ITO500:NEXTI
  25. 250 FORI=0TO5000:GETQ$:IFQ$=CHR$(13)THEN!CLOSE:RETURN
  26. 260 B$="":B$=B$+" PUSH RETURN!"
  27. 270 !OPEN,B$
  28. 280 FORT=1TO500:NEXTT:!CLOSE:FORZ=1TO500:NEXTZ:NEXTI
  29. 290 C$="":C$=C$+"[144]SELECT NUMBER OF LINES "
  30. 300 C$=C$+"[154] 1......1 LINE LABEL    2......2 LINE LABEL    "
  31. 310 C$=C$+"3......3 LINE LABEL    4......4 LINE LABEL    "
  32. 320 C$=C$+"5......5 LINE LABEL    6......6 LINE LABEL    "
  33. 330 C$=C$+"7......7 LINE LABEL    8......8 LINE LABEL    "
  34. 340 !DEF(1,1,03,160,160,01):!DIM(8,8,25,11)
  35. 350 !OPEN,C$,U$
  36. 360 GETU$:U=VAL(U$):IFU<1ORU>8THEN360
  37. 370 !CLOSE:RETURN
  38. 380 D$="":I$=CHR$(13)
  39. 390 D$=D$+"[159][197]NTER '+' AT BEGINNING OF LINE FOR"+I$
  40. 400 D$=D$+"[197]XPANDED [208]RINT ([204]IMIT 16 CHARS.)  "+I$
  41. 410 D$=D$+"'-' [211]TANDARD [208]RINT-[204]IMIT 32 CHARS."+I$
  42. 420 D$=D$+"'_' FOR [194]LANK [204]INE, '[198]1'-[198]ONTS+   "+I$
  43. 430 !DEF(1,1,08,160,160,01):!DIM(02,02,37,06)
  44. 440 !OPEN,D$
  45. 450 GOSUB230:RETURN
  46. 460 I$=CHR$(13):F$="":F$=F$+"[144][211]ELECT [208]RINTER [193]DDRESS-[195]URSOR/[210][212][206]  "+I$
  47. 470 F$=F$+"[154]? 0-[195]OMMODORE UPPER CASE ADDRESS   "
  48. 480 F$=F$+"? 4-[212]RANSPARENT MODE WITH LINEFEED "
  49. 490 F$=F$+"? 7-[195]OMMODORE UPPER/LOWER ADDRESS  "
  50. 500 F$=F$+"? 10-[198]ONTS+ [211]PECIAL CHARACTER FONTS"+I$
  51. 510 F$=F$+"? **-[207]THER-[211]PECIFY TWO DIGIT & [210][212][206] "
  52. 520 !DEF(1,1,03,160,160,01):!DIM(09,02,37,08)
  53. 530 !OPEN,F$
  54. 540 !PRINT@,11,03:INPUT "[154]";G$:G=VAL(MID$(G$,3,2)):IFG<00ORG>99THEN540
  55. 550 !CLOSE:RETURN
  56. 560 PRINT"[147]":W=U+8:POKE53272,23:V=160:R=03:POKE53281,11:POKE646,7
  57. 570 PRINT"[147]":PRINT"[145][158]" SPC(0)"            "U"[157] [204][201][206][197] [204][193][194][197][204][211]              "
  58. 580 PRINT"[145][204]INE[146]" SPC(18) "16[146]"SPC(13) "32"
  59. 590 PRINT" #   [182][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][157][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][181]":GOSUB720
  60. 600 FORI=1TOU:PRINTI"";
  61. 610 POKE646,1:X=235:Y=236:IFFRE(0)=FRE(1)THENX=214:Y=211
  62. 620 Z=1024+PEEK(X)*40+PEEK(Y):ZZ=PEEK(Z)
  63. 630 POKEZ,160:N$="":M$="":GETM$:POKEZ,ZZ:IFM$=""THEN630
  64. 640 IFM$=CHR$(133)THEN670
  65. 650 PRINTM$;:N$=N$+M$:IFM$=CHR$(13)THEN690
  66. 660 GOTO620
  67. 670 PRINT CHR$(18)CHR$(70)CHR$(146);
  68. 680 GOTO610
  69. 690 PRINT"[145]";:POKE631,34:POKE198,2:POKE632,13:INPUT"";M$(I)
  70. 700 NEXTI
  71. 710 PRINT"[158]     [170][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][180]"
  72. 720 E$="":W$=CHR$(13)
  73. 730 E$=E$+" ([197])[146][155]DIT/[195]REATE"+W$
  74. 740 E$=E$+" ([211])[146][155]ETUP PRINT"+W$+" ([208])[146][155]RINT LABEL"+W$
  75. 750 E$=E$+" ([204])[146][155]INE NUMBER"+W$+" ([200])[146][155]ELP     "+W$
  76. 760 E$=E$+" ([195])[146][155]REDITS   "+W$+" ([209])[146][155]UIT     "+W$+" [158] [197]NTER [195]HOICE  "
  77. 770 !DEF(1,1,06,160,032,01):!DIM(13,02,18,10)
  78. 780 !OPEN,E$,W$:PRINT""
  79. 790 GETO$:IFO$=""THEN790
  80. 800 IFO$="E"THEN !CLOSE:POKE646,1:!PRINT@,2,0,W$:GOTO600
  81. 810 IFO$="Q"THEN !CLOSE:CLR:POKE53272,21:GOTO1050
  82. 820 IFO$="L"THEN !CLOSE:GOSUB290:GOTO560
  83. 830 IFO$="H"THEN GOSUB380:GOTO790
  84. 840 IFO$="C"THEN GOSUB70:GOTO790
  85. 850 IFO$="P"THEN!CLOSE:GOTO880
  86. 860 IFO$="S"THEN!CLOSE:GOSUB460:GOTO720
  87. 870 GOTO790
  88. 880 F$=" HOW MANY LABELS    ":F$=F$+" (1 TO 100)   [146]"
  89. 890 !DEF(1,1,10,160,160,01):!DIM(14,14,19,5)
  90. 900 !SAVE:!OPEN,F$,W$
  91. 910 SYS58726
  92. 920 INPUT"";NN$
  93. 930 N=VAL(NN$):IFN<1ORN>100THENNN$="":!CLOSE:GOTO720
  94. 940 !CLOSE
  95. 950 GOSUB1330:IFST<>0THENGOTO720
  96. 960 FORI=1TOU
  97. 970 IFLEFT$(M$(I),1)="+"THENM$(I)=CHR$(14)+(MID$(M$(I),2,LEN(M$(I))-1))+CHR$(15)
  98. 980 IFLEFT$(M$(I),1)="_"THENM$(I)=CHR$(32)
  99. 990 NEXTI
  100. 1000 OPEN4,4,G
  101. 1010 FORL=1TON
  102. 1020 FORI=1TOU
  103. 1030 PRINT#4,M$(I):NEXTI:PRINT#4:NEXT L:CLOSE4
  104. 1040 GOTO720
  105. 1050 PRINT"[147]"
  106. 1060 !HUE(6,6,14):FORI=0TO23
  107. 1070 PRINT" LABEL PRO V4.1-1986 SHAREWARE PRODUCT":NEXT
  108. 1080 PRINT" LABEL PRO V4.1-1986 SHAREWARE PRODUCT";:!RESTORE
  109. 1090 Z$="":Z$=Z$+"THANKS FOR USING LABEL PRO V4.1"
  110. 1100 !DIM(0,3,34,3):!DEF(1,1,0,0,32,10,1)
  111. 1110 !OPEN,Z$
  112. 1120 Z$="FROM"
  113. 1130 !DIM(5,16,7,3)
  114. 1140 !OPEN,Z$
  115. 1150 Z$="LARRY EAMER"
  116. 1160 !DIM(10,4,14,3)
  117. 1170 !OPEN,Z$
  118. 1180 Z$="ERIC WOOLSEY"
  119. 1190 !DIM(10,22,15,3)
  120. 1200 !OPEN,Z$
  121. 1210 Z$="AND THE BOSS!"
  122. 1220 !DIM(15,11,16,3)
  123. 1230 !OPEN,Z$
  124. 1240 Z$=" LAOB EVETS "
  125. 1250 !DIM(20,12,14,3)
  126. 1260 !OPEN,Z$
  127. 1270 FORI=1TO3000:NEXTI
  128. 1280 Z$="[158] STEVE BOAL"
  129. 1290 !DIM(20,12,14,3):!DEF(1,1,0,0,32,190)
  130. 1300 !OPEN,Z$
  131. 1310 FORI=1TO5000:NEXTI
  132. 1320 SYS64738
  133. 1330 G$="TURN PRINTER ON! [146]"
  134. 1340 OPEN15,4,15:CLOSE15:C=C+1
  135. 1350 IFST<>0ANDC>3THEN!CLOSE:!CLOSE:!CLOSE:C=0:POKE646,11:RETURN
  136. 1360 IFST=0THEN!CLOSE:!CLOSE:!CLOSE:C=0:POKE646,11:RETURN
  137. 1370 !DEF(1,1,135,160,160,85):!DIM(17,02,18,03)
  138. 1380 !OPEN,G$,W$:!CLR:GOTO1340
  139. 1390 !CLOSE:!RESTORE:RETURN
  140. 1400 GOSUB40:GOSUB70:GOSUB290:GOTO560
  141.